home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / mu / latex-math-symbol.el.z / latex-math-symbol.el
Encoding:
Text File  |  1998-05-21  |  6.0 KB  |  182 lines
  1. ;;; latex-math-symbol.el --- LaTeX math symbol decoder
  2.  
  3. ;; Copyright (C) 1996,1997 MORIOKA Tomohiko
  4.  
  5. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
  6. ;; Created: 1996/7/1
  7. ;; Version:
  8. ;;    $Id: latex-math-symbol.el,v 2.0 1997/01/17 05:11:03 morioka Exp $
  9. ;; Keywords: LaTeX, math, mule
  10.  
  11. ;; This file is part of MU (Message Utilities).
  12.  
  13. ;; This program is free software; you can redistribute it and/or
  14. ;; modify it under the terms of the GNU General Public License as
  15. ;; published by the Free Software Foundation; either version 2, or (at
  16. ;; your option) any later version.
  17.  
  18. ;; This program is distributed in the hope that it will be useful, but
  19. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21. ;; General Public License for more details.
  22.  
  23. ;; You should have received a copy of the GNU General Public License
  24. ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  25. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26. ;; Boston, MA 02111-1307, USA.
  27.  
  28. ;;; Commentary:
  29.  
  30. ;; - How to install
  31. ;;    bytecompile this file and copy it to the apropriate directory.
  32. ;; - How to use
  33. ;;    If you use tm, please put following to your ~/.emacs:
  34. ;;      (autoload 'latex-math-decode-buffer "latex-math-symbol" nil t)
  35. ;;      (add-hook 'mime-viewer/plain-text-preview-hook
  36. ;;            'latex-math-decode-buffer)
  37. ;;   Of course, it may be available for other hooks to filter messages.
  38.  
  39. ;;; Code:
  40.  
  41. (defvar latex-math-symbol-table-alist
  42.   '(("\\alpha"        . ",Fa(B")
  43.     ("\\beta"        . ",Fb(B")
  44.     ("\\gamma"        . ",Fc(B")("\\Gamma"    . "$B&#(B")
  45.     ("\\delta"        . ",Fd(B")("\\Delta"    . "$B&$(B")
  46.     ("\\epsilon"    . ",Fe(B")("\\varepsilon"    . "$B&E(B")
  47.     ("\\zeta"        . ",Ff(B")
  48.     ("\\eta"        . ",Fg(B")
  49.     ("\\theta"        . ",Fh(B")("\\Theta"    . "$B&((B")
  50.     ("\\iota"        . ",Fi(B")
  51.     ("\\kappa"        . ",Fj(B")
  52.     ("\\lambda"        . ",Fk(B")("\\Lambda"    . "$B&+(B")
  53.     ("\\mu"        . ",Fl(B")
  54.     ("\\nu"        . ",Fm(B")
  55.     ("\\xi"        . ",Fn(B")("\\Xi"        . "$B&.(B")
  56.     ("\\pi"        . ",Fp(B")("\\Pi"        . "$B&0(B")
  57.     ("\\rho"        . ",Fq(B")
  58.     ("\\sigma"        . ",Fs(B")("\\Sigma"    . "$B&2(B")
  59.     ("\\varsigma"    . ",Fr(B")
  60.     ("\\tau"        . ",Ft(B")
  61.     ("\\upsilon"    . ",Fu(B")("\\Upsilon"    . "$B&4(B")
  62.     ("\\phi"        . "$B&U(B")("\\Phi"        . "$B&5(B")
  63.     ("\\varphi"        . ",Fv(B")
  64.     ("\\chi"        . ",Fw(B")
  65.     ("\\psi"        . ",Fx(B")("\\Psi"        . "$B&7(B")
  66.     ("\\omega"        . ",Fy(B")("\\Omega"    . "$B&8(B")
  67.     
  68.     ("\\{"        . "$B!P(B")("\\}"        . "$B!Q(B")
  69.     ("\\langle\\!\\langle" . "$B!T(B")("\\rangle\\!\\rangle" . "$B!U(B")
  70.     ("\\langle"        . "$B!R(B")("\\rangle"    . "$B!S(B")
  71.     
  72.     ("\\cdots"        . "$B!D(B")
  73.     
  74.     ("\\ln"        . "$(G"L(B")
  75.     ("\\log"        . "$(G"K(B")
  76.     
  77.     ("\\pm"        . "$B!^(B")
  78.     ("\\cdot"        . "$B!&(B")
  79.     ("\\times"        . "$B!_(B")("\\ast"        . "$B!v(B")
  80.     ("\\star"        . "$B!z(B")
  81.     ("\\bullet"        . "$B!&(B")
  82.     ("\\div"        . "$B!`(B")
  83.     ("\\cap"        . "$B"A(B")("\\cup"        . "$B"@(B")
  84.     ("\\lhd"        . "$(C"7(B")("\\rhd"        . "$(C"9(B")
  85.     ("\\bigcirc"    . "$B"~(B")
  86.     ("\\vee"        . "$B"K(B")("\\lor"        . "$B"K(B")
  87.     ("\\wedge"        . "$B"J(B")("\\land"    . "$B"J(B")
  88.     ("\\oplus"        . "$(G"S(B")
  89.     ("\\odot"        . "$(G"T(B")
  90.     ("\\dagger"        . "$B"w(B")("\\ddagger"    . "$B"x(B")
  91.     
  92.     ("\\leq"        . "$(C!B(B")("\\geq"        . "$(C!C(B")
  93.     ("\\le"        . "$(C!B(B")("\\ge"        . "$(C!C(B")
  94.     ("\\ll"        . "$B"c(B")("\\gg"        . "$B"d(B")
  95.     ("\\subseteq"    . "$B"<(B")("\\supseteq"    . "$B"=(B")
  96.     ("\\subset"        . "$B">(B")("\\supset"    . "$B"?(B")
  97.     ("\\in"        . "$B":(B")
  98.     ("\\ni"        . "$B";(B")("\\owns"    . "$B";(B")
  99.     ("\\frown"        . "$B"^(B")
  100.     ("\\mid"        . "$B!C(B")("\\parallel"    . "$B!B(B")
  101.     ("\\sim"        . "$B!A(B")
  102.     ("\\equiv"        . "$B"a(B")
  103.     ("\\approx"        . "$A!V(B")
  104.     ("\\not="        . "$B!b(B")
  105.     ("\\neq"        . "$B!b(B")("\\ne"        . "$B!b(B")
  106.     ("\\perp"        . "$B"](B")
  107.     
  108.     ("\\triangleup"    . "$B"$(B")
  109.     ("\\forall"        . "$B"O(B")
  110.     
  111.     ("\\hbar"        . ",C1(B")("\\imath"    . ",C9(B")
  112.     ("\\ell"        . "$(C'$(B")
  113.     ("\\partial"    . "$B"_(B")
  114.     ("\\infty"        . "$B!g(B")
  115.     ("\\smallint"    . "$B"i(B")
  116.     ("\\P"        . "$B"y(B")
  117.     ("\\prime"        . "$B!l(B")
  118.     ("\\nabla"        . "$B"`(B")
  119.     ("\\top"        . "$(D0#(B")("\\bot"        . "$(D0"(B")
  120.     ("\\vert"        . "$B!C(B")("\\Vert"    . "$B!B(B")
  121.     ("\\angle"        . "$B"\(B")
  122.     ("\\triangle"    . "$B"$(B")
  123.     ("\\backslash"    . "$B!@(B")
  124.     ("\\S"        . "$B!x(B")
  125.     ("\\forall"        . "$B"O(B")
  126.     ("\\exists"        . "$B"P(B")
  127.     ("\\neg"        . "$B"L(B")("\\lnot"    . "$B"L(B")
  128.     ("\\flat"        . "$B"u(B")("\\sharp"    . "$B"t(B")
  129.     ("\\clubsuit"    . "$(C"@(B")
  130.     ("\\diamondsuit"    . "$B!~(B")
  131.     ("\\heartsuit"    . "$(C"=(B")
  132.     ("\\spadesuit"    . "$(C"<(B")
  133.     
  134.     ("\\leftarrow"    . "$B"+(B")("\\rightarrow"    . "$B"*(B")
  135.     ("\\gets"        . "$B"+(B")("\\to"        . "$B"*(B")
  136.     
  137.     ("^1"        . ",A9(B")("^{1}"        . ",A9(B")
  138.     ("^2"        . ",A2(B")("^{2}"        . ",A2(B")
  139.     ("^3"        . ",A3(B")("^{3}"        . ",A3(B")
  140.     ("^4"        . "$(C)y(B")("^{4}"        . "$(C)y(B")
  141.     ("^n"        . "$(C)z(B")("^{n}"        . "$(C)z(B")
  142.     ("_1"        . "$(C){(B")("_{1}"        . "$(C){(B")
  143.     ("_2"        . "$(C)|(B")("_{2}"        . "$(C)|(B")
  144.     ("_3"        . "$(C)}(B")("_{3}"        . "$(C)}(B")
  145.     ("_4"        . "$(C)~(B")("_{4}"        . "$(C)~(B")
  146.     ))
  147.  
  148. (defun latex-math-decode-region (beg end)
  149.   (interactive "r")
  150.   (save-restriction
  151.     (narrow-to-region beg end)
  152.     (let ((rest latex-math-symbol-table-alist)
  153.       (case-fold-search nil)
  154.       cell)
  155.       (while rest
  156.     (setq cell (car rest))
  157.     (goto-char beg)
  158.     (while (re-search-forward
  159.         (concat "\\("
  160.             (regexp-quote (car cell))
  161.             "\\)\\([^a-zA-Z]\\|$\\)")
  162.         nil t)
  163.       (delete-region (match-beginning 1)(match-end 1))
  164.       (goto-char (match-beginning 0))
  165.       (insert (cdr cell))
  166.       )
  167.     (setq rest (cdr rest))
  168.     ))))
  169.  
  170. (defun latex-math-decode-buffer ()
  171.   (interactive)
  172.   (latex-math-decode-region (point-min)(point-max))
  173.   )
  174.  
  175.  
  176. ;;; @ end
  177. ;;;
  178.  
  179. (provide 'latex-math-symbol)
  180.  
  181. ;;; latex-math-symbol.el ends here
  182.